home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / editor / jmedia20.zip / JMDEMO1.EXE / VIEWER.J < prev    next >
Text File  |  1995-01-03  |  2KB  |  79 lines
  1. 'viewer.j
  2. 'Demostrates how to create a simple file viewer
  3.  
  4. KillMouseFields
  5.  
  6. 'Create a custom background pattern
  7. FillPattern 194 180 150 145 168 162 165 203 LightBlue
  8. Bar 0 0 639 349
  9.  
  10. 'break screen into 100x100 area
  11. SetDimensions 650 350 100 100
  12.  
  13. 'Draw metalic window and option box
  14. 'Must provide full path for wizard filename
  15. 'eg. Wizard 5 10 +96 +85 c:\jdraw\metwin.wiz
  16. '    Wizard 5 97 +96 +12 c:\jdraw\box1.wiz
  17.  
  18. Wizard 5 10 +96 +85 metwin.wiz
  19. Wizard 5 97 +96 +12 box1.wiz
  20.  
  21. 'Place window description
  22. Color DarkGRay
  23. TextXY 7 12 SIMPLE FILE VIEWER
  24.  
  25. 'Set the button style flags
  26. ButtonStyle.Width 90
  27. ButtonStyle.Height 20
  28. ButtonStyle.Orient 2
  29. ButtonStyle.BevSize 2
  30. ButtonStyle.DFore 2
  31. ButtonStyle.DBack 0
  32. ButtonStyle.Bright 15
  33. ButtonStyle.Dark 8
  34. ButtonStyle.Surface 5
  35. ButtonStyle.GroupNum 0
  36. ButtonStyle.UlineCol 14
  37. ButtonStyle.CornerCol 7
  38. ButtonStyle.IconButton OFF
  39. ButtonStyle.PlainButton ON
  40. ButtonStyle.ClipButton OFF
  41. ButtonStyle.Mouse ON
  42. ButtonStyle.Invertable OFF
  43. ButtonStyle.Reset OFF
  44. ButtonStyle.Chisel OFF
  45. ButtonStyle.Recess OFF
  46. ButtonStyle.Shadow ON
  47. ButtonStyle.Stamp OFF
  48. ButtonStyle.Bevel ON
  49. ButtonStyle.Underline ON
  50. ButtonStyle.HotIcon OFF
  51. ButtonStyle.ADJ OFF
  52. ButtonStyle.RadioGroup OFF
  53. ButtonStyle.Sunken ON
  54. ButtonStyle.CheckBoxGroup OFF
  55. ButtonStyle.HighlightKey ON
  56. ButtonStyle.Explode OFF
  57. ButtonStyle.LeftJustify OFF
  58. ButtonStyle.RightJustify OFF
  59. ButtonStyle
  60. ButtonStyle.Selected OFF
  61.  
  62. 'Paste the various button commands
  63. Button 10 100 0 0 u <>PAGE UP<>PGUP
  64. Button 28 100 0 0 d <>PAGE DOWN<>PGDOWN
  65. Button 46 100 0 0 h <>HOME<>HOME
  66. Button 64 100 0 0 e <>END<>END
  67. Button 82 100 0 0 x <>EXIT<>EXIT^MEXIT^M
  68.  
  69. 'Create a text window that browser will be using
  70. TextWindow 6 7 +78 +26 OFF 1
  71.  
  72. 'Set text window background anf foreground colors
  73. TextBackGround LightGray
  74. TextColor Black
  75.  
  76. 'Start browser
  77. Browse catalog.txt
  78.  
  79.